home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / P-New PET 1983 / (p)mb.d64 / match up num.40 (.txt) < prev    next >
Commodore BASIC  |  2007-04-28  |  8KB  |  274 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO70
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 70 IFUR$=UX$THENPRINT"[157] ";:GOTO145
  16. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  17. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  18. 95 IFLEN(US$)=0THEN110
  19. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  20. 105 RETURN
  21. 110 IFUA=46THENRETURN
  22. 115 IFUA=32ANDUR<>0THENRETURN
  23. 120 IFUA>47ANDUA<58THENRETURN
  24. 125 IFUA>64ANDUA<91THENRETURN
  25. 130 IFUA<193ORUA>218THENUI$="":RETURN
  26. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  27. 140 RETURN
  28. 145 GOSUB170:POKE251,0:POKE252,US/256:POKE253,0:POKE254,UF:SYSUV
  29. 150 UZ=1:UV%=PEEK(UT):GOTO300
  30. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:IFUW=0THENPOKEUY,6:POKEUX,14
  31. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:IFUW=0THENSYSUU,15
  32. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  33. 170 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4)
  34. 175 UJ$=US$:UK$=UG$:UL$=UT$:UJ=UP:UK=UL:RETURN
  35. 300 PRINT"[147]":POKEUT,UU%:IFUW=0THENPOKEUY,12:POKEUX,6
  36. 305 PRINT"                M E N U"
  37. 310 PRINT"    --------------------------------"
  38. 315 PRINT"       1.   BEGIN MATCH UP NUMBERS
  39. 320 [153]"       2.   STUDENT INSTRUCTIONS"
  40. 325 [153]"       3.   TEACHER INSTRUCTIONS"
  41. 330 [153]"       4.   QUIT"
  42. 335 [153]"    --------------------------------"
  43. 340 [153]"       PRESS A NUMBER KEY (1-4) ";
  44. 345 UL[178]1:US$[178]"1234"
  45. 347 [141]35:US$[178]""
  46. 350 [145][197](UR$)[141]1000,400,500,390
  47. 355 [137]300
  48. 370 [139]UZ[178]1[167][158]UP%:[137]155
  49. 375 [142]
  50. 390 [158]UE:[153]"CONTLOAD":[139]UW[178]0[167][151]UY,6:[151]UX,14:[158]UU,14
  51. 395 [156]:[128]
  52. 400 [153]"LOAD":[151]UT,UL%:[139]UW[178]0[167][151]UY,11:[151]UX,12
  53. 405 UT$[178]" (null)ATCH (null)P (null)UMBERS":UH[178]1:UP[178]0:UG$[178]"(null)TUDENT RIGHT$NST":[141]850
  54. 410 [153]"      ATN NUMBER WILL BE APPEAR IN A
  55. 412 PRINT" BOX AT THE TOP LEFT-HAND CORNER OF
  56. 414 [153]" THE SCREEN. (null)HEN FIVE MORE NUMBERS
  57. 416 PRINT" WILL BE PRINTED AT DIFFERENT SPOTS
  58. 418 [153]" ON THE SCREEN. (null)OU HAVE TO TYPE IN
  59. 420 PRINT" THE NUMBER THAT MATCHES THE ONE IN
  60. 422 [153]" THE BOX.
  61. 424 PRINT"      [193]T THE END OF THE TEST YOUR
  62. 426 [153]" RESULTS WILL BE PRINTED.
  63. 428 GOSUB835:GOSUB850
  64. 430 PRINT" [201]F AT ANY TIME YOU REQUIRE HELP, PRESS
  65. 432 [153]" LEFT$ <(null)VAL(null)(null)(null)(null)> AND YOU WILL BE RETURNED TO"
  66. 434 [153]" THE MENU.
  67. 485 GOSUB835
  68. 490 IFUZ=1THENSYSUP%:GOTO155
  69. 495 RETURN
  70. 500 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,2:POKEUX,10
  71. 501 UT$=" [205]ATCH [213]P [206]UMBERS":UH=1:UP=0:UG$="[212]EACHER [201]NST":GOSUB850
  72. 502 PRINT"     [212]O THE BEST OF OUR KNOWLEDGE,"
  73. 503 PRINT"     THIS PROGRAM IS IN THE PUBLIC"
  74. 504 PRINT"     DOMAIN.  [201]F THIS IS NOT TRUE,"
  75. 505 PRINT"     PLEASE CONTACT:"
  76. 506 PRINT"      [195][207][205][205][207][196][207][210][197][160][194][213][211][201][206][197][211][211][160][205][193][195][200][201][206][197][211]"
  77. 507 PRINT"          3370 [208]HARMACY [193]VE.
  78. 508 [153]"          ATNGINCOURT, (null)NTARIO"
  79. 509 [153]"          LENANADA, (null)1(null) 2(null)4"
  80. 510 [153]"          (416) 499-4292"
  81. 511 UH[178]1:[141]835:[141]850
  82. 512 [153]"      (null)ROGRAM (null)AME: (null)ATCH (null)P (null)UMBERS
  83. 513 PRINT"      [215]RITTEN BY  : [205]. [193]USTIN
  84. 514 [153]"      (null)EVISED BY  : (null)ETER (null)AN
  85. 515 PRINT"      [212]HIS PROGRAM WILL RUN ON ANY
  86. 516 [153]"         PEEKATN(null)RIGHT$LENCLOSE2.0 (null)VAL(null) LENOMPUTER
  87. 517 PRINT"         [194][193][211][201][195] 4.0 [208][197][212][160][195]OMPUTER
  88. 518 [153]"         8032 LENPEEK(null) LENOMPUTER
  89. 519 PRINT"         [195]OMMODORE 64 [195]OMPUTER
  90. 585 [141]835
  91. 590 [139]UZ[178]1[167][158]UP%:[137]155
  92. 595 [142]
  93. 700 [153]UC$"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032
  94. 705 PRINT"      LOAD THE 'CBM 4032' PROGRAM":END
  95. 800 PRINT"[147]";:POKEUT,UU%:IFUW=0THENPOKEUY,1:POKEUX,14
  96. 801 FORI=1TO38:PRINT" [146]";:NEXT
  97. 802 FORI=1TO22:PRINT"[157] [146]";:NEXT
  98. 803 FORI=1TO37:PRINT"[157][157] [146]";:NEXT
  99. 804 FORI=1TO22:PRINT"[145][157] [146]";:NEXT
  100. 805 PRINT"[169]  [146]
  101. 806 [153]" WAIT   WAITSTEP
  102. 807 PRINT" [146]  [163][223][146] O M M O D O R E
  103. 808 [153]"(null)  WAIT
  104. 809 PRINT"EDUCATIONAL
  105. 810 [153]"SOFTWARE
  106. 811 PRINT"1983
  107. 812 [153][200](UD$,24);"PRESS SPACE BAR OR WAITWAIT"UC$:UI[178]0
  108. 813 [161]UI$:[139]UI$[179][177]" "[167]UI[178]UI[170]1:[139]UI[179]250[167]813
  109. 814 [137]300
  110. 835 [151]UN,0:[153][200](UD$,24);"PRESS SPACE BAR TO CONTINUEWAIT"
  111. 840 [161]UI$:[139]UI$[179][177]" "[167]840
  112. 845 [142]
  113. 850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
  114. 855 [153]" --------------------------------------"
  115. 860 [139]UH[178]0[167][153][200](UD$,24);[200](UP$,7);"HELP - PRESS   H <RETURN> "
  116. 865 UH[178]0:[153]"":[142]
  117. 875 [153][200](UD$,24);"           ONE MOMENT PLEASE...     ":[142]
  118. 900 UX$[178]"H":US[178]32768:U1[178]196:U2[178]197:U3[178]198:U4[178]216:UC[178]167:UB[178]1024:UD[178]1084:UE[178]1105
  119. 901 UT[178]59468:UU%[178]12:UL%[178]14:UP%[178]1158:UN[178]158:[151]50003,0:UW[178][194](50003):UF[178][194](53)
  120. 902 [139]UW[178]0[167]US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
  121. 903 [139]UW[178]0[167]UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
  122. 904 UC$[178][199](155):UV[178]1214:[139]UW[178]0[167]UF[178]196:UV[178]2238
  123. 905 UD$[178]"":UP$[178]"                                      "
  124. 906 [134]NO$(20),PN(20),N(20)
  125. 907 LP$[178]"N"
  126. 909 [142]
  127. 910 [141]900:[153]"LOAD":[153]"CLOSE":[143] SHIFTED SPACE
  128. 915 [139][194](US[170]40)[179][177]96[167]700
  129. 920 [139]([184](0)[171]([180]([184](0))[179]0)[172]65536)[177]500[167]935
  130. 925 [153]UC$"LOADTHIS MACHINE DOES NOT HAVE ENOUGH"
  131. 930 [153]"MEMORY TO RUN THIS PROGRAM !":[158]UE:[128]
  132. 935 [153]"LOAD"UC$:[139]UW[178]0[167]965
  133. 940 [139]UF[178]60[176]UF[178]108[176]UF[178]124[167]950
  134. 945 [151]52,0:[151]53,UF[171]4:[156]:[141]900
  135. 950 [139]UW[178]160[167][151]1103,88:[151]1104,228:[151]1107,85:[151]1111,228:[137]965
  136. 955 [139]UW[179][177]1[167][153]"LOADTHIS PGM WILL NOT WORK ON THIS MACHINE!":[158]UE:[128]
  137. 960 [151]1103,49:[151]1104,230:[151]1107,46:[151]1111,230:[137]965
  138. 965 [158]UD
  139. 970 [141]800:[137]300
  140. 1000 [139]UZ[178]1[167][158]UP%:[158]UP%:UZ[178]0
  141. 1001 [153]"LOAD"UC$;:[140]:[139]UW[178]0[167][151]UY,6:[151]UX,14
  142. 1010 [140]:WR[178]0:W[178]0:R[178]0:CO[178]0:P(0)[178]5:[129]I[178]1[164]5:[135]J:P(I)[178]J[170]UB:[130]
  143. 1011 [131]456,470,846,859,870
  144. 1017 QN[178]0:B$(1)[178]"      ":[129]E[178]2[164]9:B$(E)[178]B$(1):[130]
  145. 1020 UT$[178]" MATCH UP NUMBERS":UP[178]0:UG$[178]"":[141]850
  146. 1030 [153]" WHAT'S YOUR NAME? ";:US$[178]"":UL[178]8:[141]35:NA$[178]UR$
  147. 1040 [153]" HOW MANY QUESTIONS WOULD YOU LIKE"
  148. 1041 [153]" "NA$" (1-20) ?   CMDCMD";:US$[178]"H0123456789":UL[178]2:[141]35:NQ[178][197](UR$)
  149. 1042 [139]NQ[177]0[175]NQ[179]21[167]1048
  150. 1044 [153]" ILLEGAL RESPONSEWAIT"
  151. 1045 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4):[141]835:[141]860
  152. 1046 [151]U1,U1%:[151]U2,U2%:[151]U3,U3%:[151]U4,U4%:[153]"ON"UP$
  153. 1047 [153]"ONONON"UP$:[153]"ON";:[137]1041
  154. 1048 [129]U[178]0[164]9:[135]NO$(U):[130]U
  155. 1049 [131]" (null)TAB(TAB((null)CMDTHENCMDTHENCMDTHENCMDTHENCMDTHENCMDCMDCMDCMDCMDONONONONTHENCMDTHENCMDTHENCMDTHENCMDTHEN(null)TOTO(null)CMDCMDCMDCMDCMD     "
  156. 1050 [131]"(null)FNCMDFNCMDFNCMDFNCMDFNCMDFNCMD(null)TOCMDCMDCMDCMDTOTOCMDCMDCMD     "
  157. 1061 [131]" (null)TAB(TAB((null)CMDTHENCMD(null)CMDCMD(null)CMDCMD(null)CMDCMD(null)CMD(null)TOTOTOCMDCMDCMDCMD     "
  158. 1071 [131]" (null)TAB(TAB((null)CMDTHENCMD(null)CMDCMDTAB((null)CMDTHENCMDTHENCMDCMDCMDCMD(null)TOTO(null)CMDCMDCMDCMDCMD       "
  159. 1080 [131]"THEN   FNCMDFNCMDFNCMD(null)CMDFNCMDFNCMDFNONONONCMDCMDCMDCMDONONCMDTHENCMDTHENCMDTHENTOTOTO     "
  160. 1090 [131]" (null)TAB(TAB(TAB(CMDCMDCMDCMDFNCMD(null)TOTO(null)CMDTHENCMDTHENCMDCMDCMDCMD(null)TOTO(null)CMDCMDCMDCMDCMD     "
  161. 1101 [131]" (null)TAB(TAB((null)CMDCMDCMDCMDFNCMD(null)CMDFNCMDFNCMDFNCMD(null)TOTO(null)ONCMDTHENONCMDTHENONONCMDCMDCMDCMDTOTO(null)CMDCMDCMDCMDCMD        "
  162. 1111 [131]"THENTAB(TAB(TAB(TAB(FNCMDCMD(null)CMDCMD(null)CMDCMD(null)CMDFNCMDFNCMDFNCMDCMDCMD     "
  163. 1121 [131]" (null)TAB(TAB((null)CMDTHENCMD(null)CMD(null)CMDTHENCMDTHENCMDCMDCMDCMD(null)TOTO(null)CMDCMDCMDCMDONFNONCMDFNONCMD(null)ONCMD(null)ONCMDFNTOTO     "
  164. 1130 [131]" (null)TAB(TAB((null)CMDTHENCMDTHENCMDSQRCMDCMDCMDCMDONONFNCMDFNCMD(null)TOTOTHENCMDTHENCMDCMDCMDCMD(null)TOTO(null)CMDCMDCMDCMDCMD     "
  165. 1220 WR[178]0:QN[178]QN[170]1:[139]QN[177]NQ[167]5000
  166. 1230 UP[178]QN[171]1:UG$[178]"    QUESTION #":[141]850
  167. 1235 [139]FF[178]1[167]1243
  168. 1240 RN[178][181]([187](1)[172]10)
  169. 1243 FF[178]0:Y$[178]""
  170. 1245 [153]"":A0$[178]""
  171. 1250 [141]4000
  172. 1260 [153]"":[129]I[178]1[164]10:[153]Y$;"THEN":[130]
  173. 1270 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  174. 1280 A$(1)[178]""
  175. 1290 A$(2)[178]""
  176. 1300 A$(3)[178]""
  177. 1310 A$(4)[178]""
  178. 1315 A$(5)[178]""
  179. 1325 P[178][181](([187](1)[172]5)[170]1):[139]P[177]2[167]DX[178]12
  180. 1330 DX[178]2
  181. 1345 [129]Y[178]1[164]5
  182. 1346 A0$[178]A$(Y)
  183. 1347 [139]Y[178]P[167]R2[178]RN:A0$[178]A$(P):[137]1358
  184. 1350 R2[178][181]([187](1)[172]10)
  185. 1355 [129]T[178]1[164]Y:[139]R(T)[178]R2[167]1350
  186. 1356 [130]
  187. 1357 [139]R2[178]RN[167]1350
  188. 1358 R(Y)[178]R2
  189. 1362 [139]Y[177]2[167]DX[178]12
  190. 1365 [141]4020
  191. 1370 [141]4010
  192. 1380 [130]Y
  193. 1408 [153][200](UD$,22);
  194. 1410 [153]UP$:[153][200](UD$,22)" WHICH NUMERAL MATCHES ? ";
  195. 1415 US$[178]"H0123456789":UL[178]1:[141]35:AN$[178]UR$
  196. 1416 AN[178]RN
  197. 1420 [139][197](AN$)[178]AN[167]1500
  198. 1425 WR[178]WR[170]1
  199. 1427 [139]WR[178]2[167]1450
  200. 1430 [153]"ON "NA$", THAT'S WRONG. TRY AGAIN.":[141]7000:F[178]0
  201. 1440 [153]"ON";:[129]K[178]1[164]CO:[139]PN(K)[178]RN[167]F[178]1
  202. 1445 [139]F[178]0[167]CO[178]CO[170]1:PN(CO)[178]RN
  203. 1446 [137]1410
  204. 1450 [153]"ON SORRY "NA$" YOU ARE WRONG AGAIN."
  205. 1455 N(CO)[178]1
  206. 1460 [137]2140
  207. 1500 F1[178]1:[141]2150:F1[178]0
  208. 1501 [153][200](UD$,22)UP$
  209. 1505 A0$[178]A$(P):DX[178]2:[139]P[177]2[167]DX[178]12
  210. 1520 I[178]0:Z[178]9
  211. 1525 [141]4020
  212. 1526 [129]J[178]1[164]Z:[153]A0$;B$(J):[130]
  213. 1527 [139]P[177]3[175]F2[178]1[167]1532
  214. 1531 [139]P[177][178]3[167][137]1700
  215. 1532 [139]I[178]0[167]DX[178]DX[170]1:Z[178]8
  216. 1533 I[178]1
  217. 1535 [141]4020
  218. 1537 A0$[178][202](A0$,3)
  219. 1550 [141]4000
  220. 1570 [139][195](A0$)[178]0[167]1800
  221. 1575 [137]1525
  222. 1700 DX[178]DX[171]3:[139]P[177]3[167]1710
  223. 1705 A0$[178]""
  224. 1710 [141]4020
  225. 1715 [141]4000
  226. 1717 [139]DX[178]3[175]P[177]3[167]F2[178]1:DX[178]2:[137]1520
  227. 1718 [139]DX[178]3[167]1800
  228. 1720 [137]1525
  229. 1800 F2[178]0:[153]"":[129]I[178]1[164]10:[153]Y$;"THEN":[130]
  230. 1810 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  231. 1830 [153]" A PERFECT MATCHWAIT":[153]" GOOD "NA$
  232. 1840 [141]835:[137]1220
  233. 2140 W[178]W[170]1:[141]7000
  234. 2150 DX[178]2:[139]P[177]2[167]DX[178]12
  235. 2160 [141]4020
  236. 3040 DX[178]2
  237. 3060 [129]YY[178]1[164]5
  238. 3070 [139]YY[178]P[167]3110
  239. 3080 A0$[178]A$(YY)
  240. 3090 [139]YY[177]2[167]DX[178]12
  241. 3100 [141]4020
  242. 3105 [129]X[178]1[164]8:[153]A0$;B$(X):[130]
  243. 3110 [130]YY:[139]F1[178]1[167][142]
  244. 3115 [153][200](UD$,22)"      THIS IS THE CORRECT MATCHWAIT     "
  245. 3140 [141]835:FF[178]1:[137]1220
  246. 4000 [153]A0$;NO$(RN):[142]
  247. 4010 [153]A0$;NO$(R2):[142]
  248. 4020 [153]"":[129]J[178]1[164]DX:[153]"";:[130]J:[142]
  249. 5000 UP[178]0:UG$[178]"":[141]850:[153]" THAT'S ALL!! THANKS FOR KEEPING ME"
  250. 5020 [153]" COMPANY "NA$"."
  251. 5030 [153]"RIGHT: "NQ[171]W
  252. 5040 [153]"WRONG: "W
  253. 5050 S[178]((NQ[171]W)[173]NQ)[172]100:S2$[178]""
  254. 5060 [139]S[178]100[167]S$[178]" PERFECTWAIT":[137]6015
  255. 5070 [139]S[177][178]80[167]S$[178]" EXCELLENTWAIT.":[137]6010
  256. 5080 [139]S[177][178]70[167]S$[178]" GOODWAIT.":[137]6010
  257. 5090 [139]S[177][178]55[167]S$[178]" FAIR. MAYBE YOU'LL"[170][199](13)[170]" DO BETTER TOMORROW.":[137]6010
  258. 6000 [153]" "NA$", YOU NEED EXTRA HELP.":[153]" MAYBE YOU'LL DO BETTER NEXT TIME.
  259. 6005 GOTO6020
  260. 6010 PRINT" "NA$", YOU DID";
  261. 6015 PRINT" "S$
  262. 6020 IFCO=0THEN6040
  263. 6025 PRINT" YOU HAD PROBLEMS WITH:"
  264. 6026 PRINT" (THE MATCHES WHICH YOU ANSWERED IN-
  265. 6027 [153]" CORRECTLY TWICE ARE IN REVERSEFIELDWAIT)"
  266. 6030 [129]I[178]1[164]CO:[139][201]([196](I),1)[178]"1"[167][153]:[153]" ";
  267. 6032 [139]N(I)[178]1[167][153]""PN(I)"WAIT";:[137]6037
  268. 6035 [153]PN(I);
  269. 6037 [130]
  270. 6040 [141]835
  271. 6050 [142]
  272. 7000 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4):[141]835:[141]860
  273. 7010 [151]U1,U1%:[151]U2,U2%:[151]U3,U3%:[151]U4,U4%:[142]
  274.